home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9011a.d64
/
cave 112
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
10 FORI=0TO17:READA$:PRINT"[147]"A$:FORS=0TO39:POKE8192+40*I+S,PEEK(1024+S):NEXTS:NEXTI
20 POKE8787,57:FORI=1TO6:READA:POKE8448+A,162:NEXT:POKE8799,224:POKE8855,34:POKE8828,34
30 DATA"@@@@@@@O[184][146]@@([146]@B([146]@J [146]@+ [146]@*P[146]B*T[146]J[218]@)[146][214]@[146]J[218]@[146]B*T[146]@"
40 DATA"*P[146]@+ [146]@J [146]@B([146]@@([146]@O[184][146]@@@@@@@@@@0@@0LC<LL7<L7":POKE8510,224
50 DATA"<<M[220][220][146]M[220][176][146]M[215][176]M[221][192][146]C[213][192][146]=[183][176][183][146][221][188]O[213][223][146]@[221][146][176]C[215][176]M[181][176][146]O[213][204][146]3[223][146]":POKE8842,34
60 DATA"[192][195][146]0[192][146]L00@[178][178][178][178][163][211][211]44444[195][211][211][211][162][162][210][161][161][161][161][210][162][211][211][163][211][210][210][162]":POKE8532,34:POKE8574,34
70 DATA"[162][163][163][212][212][213][197][197][212][212][164][179]BB[146][179][213]6[197][179][179][164][213][164][163][197][197][197][197][212][196][196][213][164][163][197][197][197][197][197][212]":POKE8704,34:POKE8707,34
80 DATA"[211][211][211][211][210][210][210][209][209][209][209][209][209][209][209][209][210][210][211][211][211][212][212][213][197][197][197][197][196][196]5[197][212][197][197][164][179][179][163][196]":POKE8744,34:POKE8834,34:POKE8839,34
90 DATA"[212][179]B[146][163][212][178]A@P[146][177][161][161][177]PQ[146][178]@@F[146]5)[146]PE[146]6 [146]L)[146]@Q[146]5H[146]P[185]=@[146] )OX[165]"
100 DATA"5E[146]7%[146]6E[146]8P[146]B[166][146]8=@[146] [202][202][202][202]()[146] Q[146]7H[208][185]%[146]5X[169]LE[146]5P[146]B[166][146]6[168][168]@[146]"
110 DATA"[208][198])[184]E[146]5E[146]6D[146]7L[146] [208]L[146]![208] [146]G9$$Y[146]![208]H[208][183])[176]M[146]@[208]M[146]B[208])[146][223]M[146]A[208][146]"
120 DATA")?M[146]C[208])S[146] [210][191])@M[184][146]GM[185][146]G [146]J9ZZY[146][204]EH[208][183]-[146]A[220][201][175][208][185])S[146] [210]":SYS8448
130 DATA"[191])[208]M[146]V[208])[146]CM[146]U[208]M[146]\[208])[191]M[146]X[212]M[146]@[212])[146]HM[146]A[212])HM[146]E[212])[146] M[146]D[212])[146]!M[146]"
140 DATA"D[212]-[146]_[208][146])C[208][185][185]A-[146]_[208][201][146]A[208][146]FN[184][146]G[204][215][146]![201][146]B[208][146]3N[185][146]G [146]@L[146]A[212]L[146]F[212])[146]"
150 DATA"*M[146]E[212])@M[146]D[212]N[146]D[212][146]@@[202][208][189]H[208][184]L[146]U[208])[192]M[146]V[208])[146]PM[146][217][217]L[146][216][216][204]@![166][146]"
160 DATA"7[166][146]7%[146]7[176][146]F)?[176][146]%[208],,[146]A=[146]@[220][146])O[201][146]M[208][146]IJ[146]J*[190][146]A[208][146][204]33[201][146]N[208][146]HJ[146]J*"
170 DATA"[255][146]A[208][146][202]*[202][146]P[223][223][146]@[166][146]6%[146]6[208][146][216]%[146]5E[146]6)[146]DE[146]:)[146]@E[146]9 [146]'H1[146]9[200]Q9H[208][183]="
180 DATA"@P [146]AQ[146]9[168][168][146]L[208][146]BB@%[146]9X[169](E[146]9P[146]B[166][146]:[201][192][208][216]%[146]:[201][146]G[208][210]-[146][216][216]X[169]L"
190 DATA"M[146][216][216]P[146]C[174][146][217][217]-[146][217][217][201][146]V[208][146]I[166][146]5[166][146]5)[146]PM[146][217][217][204][193][146]!PRESS FIRE[180][182][178][146]"
200 DATA"[177][190][187][187][146]@@@@@@(W) BY DIRK KLINGLER@@@@@@@@@@":DATA0,193,236,277,312,355